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DEMO-P&AK 1 is a collection of 15 separate BaASIC graphics pro- 
grams that have been reuritten for use uith the 2068/1520 
combinatLion. It is hoped that, besides the immediate enjoyment, 
derived just by uatching the 1520 plota SEhbhix figure, a user 
Jill learn by examining demo listings just hou to use the 1520”s 
printing and plottLing commands in his or her oun programs, 


Én amáama 


DEHO-PAK 1 loads in tuo parts and then autLo-runs, The 1520 MUST 
remain OFF until the program initLialises the I/7/F logic. Folloo 
the screen prompts as to uhen the 1520 can be turned ON. &4 menu 
listLing the 15 demo programs will appear and you uill be asked 
to enter the number of the program you uant to run, Entering the 
number ”16” uill return you to BASIC where you can examine pro- 
Ban listLings, This is the Bab 4 uay to exit the error-trapped 
EHO-Pak 1 progran Pressing BREEAK at ab point Ceven uhile the 
1520 is néaaia plotLttLing) uill take you to the menu, Should the 
plotter be busy uhen a BREAK is made, the Biovtine uill cease 
and the pen uill move to the left side of the paper. After such 
a BREAK, it is often necessary to use the ice babaí feed 
button to advance the paper past the ploutting that, uas inter— 
ruptLed so that the next plotted figure has a “”clean slate”, 


Demo. $1 - ERaCTaL PLOT (Cprog. lines. 500-965)2 


FRRACTaAL PLOT is a reurite of the program ”3D Fractals” by Ted 
Knyssek uhich appeared in issue $£17 of T-S Horisons Haa: It has 
always been one of my favorite graphics programs for the 2068 
and uas one of the first I converted to use uith the 1520. 

&fter selectLing FRACTAL PLOT from the menu, you uill be prompted 
for a “level number”, The level number determines the number and 
sise of the Lriangles that uili make up the fractal, Level 1 
calculates 4 triangles, level 2 calculates 16 triangles and so 
on up to level 6 uhich calculates 4096 tLriangles. Each increase 
in level guadruples the number of triancgles and the time it 
takes to calculate the arrays. 1 most often select level 4 or 5. 
Levels 1-3, uhile guickly computed, result in uninteresting lou 
resolution fractLals and, ai oUNA level 6 prodúces: the most de- 
tailed fractals, it reguires LOTS$ of time to calculate and plot. 
&aAfter specifying a level number, you are FSopaa for the color 
of pen you uant, Lo be used for glatiiha the fractal, Next, you 
uill have to uait for calculations to be made before the loting 
starts, Each fractal you have biitás uill be different than any 
other and some uill be more interesting than others, 


Demo. $2 - TUERTLE PLOT Cprog. lines 1000-1258? 


TURTLE PLOT is an adaptation of the TINMEX program “”Turtle 
Graphics” uhich, aint uith tuo other programs, came uith the 
urchase of most neu TS-2068”s., ”Turtle Graphics” unfortunately 
ad more than it ”s share of serious bugs that have been correct— 
ed in TURTLE PLOT. Some old turtle commands have been eliminated 
and tuo neu ones have been added. Also uith TURTLE PLOT, the 
screen area for turtle movement, is bounded from 8-247 in the x- 
direction and from 0-175 in the y-direction and, unlike ”“Turtle 
Graphics”, screen urap-around of draun lines is not possible, 
Upon selecting TURTLE PLOT from the menu, you uill be given a 
screen uith a single dot, Cthe ”turtLle”) in it ”s center and you 
Uuill see the computer is auaiting an input, The plotter uill 
have moved it's pen to the center of the paper and from nou on 
Uuill plot a line on the paper corresponding to every line that 


is draun on the screen, Uhen the program stLarts, you are in uhat, 
I call ”drauing mode” uith the follouing commands at your 
disposal: CNÓOTE..,., xx - a positive integer number.) . 


€ DRAUING HODE COMHANDS 5 


fdxx s- drau line Cpen doun); foruard xx units. 
mvxx s- move Cpen up) foruard xx units, 
inxx s- increment line length by xx units, 
lfxx s- turn left xx degrees, 
rLxx s- Lurn right xx degrees, : 
. drxx s turn to xx degrees, (0 degrees is up; 90 degrees is rt... 
nxxx -“ specify neu x coordinate Cnx range - 8 to 212753. 
nyxx s- specify new y coordinate (Cny range - 0 to 1755), 
or s- define new origin according to nx,ny &. move Lurtle there, 


- contLinuad on next page — 


€ DRaUING MODE COMHANDS 523 (Ccont.? 


pixx s- set, pen color (xx s- 0/black, 1/7blue, 2/red,;, 4/green), 
ri s- roLate pen color. 

ns s- do not, save commands until ”sv” command is issued, 

sv s- resume saving commands, 

p s- print, saved command list on the 1520. 

e s- Clear screen and move turtle to origin. 

er s- erase current command list, 

ed s- go to “”“edit mode”, 

en s- guit TUKTLE PLOT and reLurn to main menu, 


8&s the turtle is moved around, each command issued is saved or 
not, saved as specified by the last use of the sv or ns command, 
Thus a list of commands describing the motion of the turtle can 
be built, saved, and edited, The “edit mode” is entered from the 
"drauing mode” by gucaeine ”ed” to the prompt. In the edit mode, 
you are presented uith a iist of commands and a ”3” pointer to 
the left of the top command, Pressing the €ENTER2 key uill move 
the pointer doun the list from command to command and, after 
bássing the bottom of the page, it uill return to the Lop of the 
ist, You can have a maximum of 61 saved commnands that occupy 
three “pages” of screen SISE ALE; To access the next screen 
page, type ”p” and €ENTEKE5:. After the third page is displayed, 
typing “”p” and €ENTER:3 uill take you back to the first page: To 
make a change to a command, position the pointer next to it and 
type ”c” and €ENTEK:2. Then enter the neu command - it uwuill over 
urite the old command at, the pointer”s location, Commands Sa be 
added to the end of the list moving the pointer past the last 
command and uvyping “a” and €ENTER?, The additional command is 
then entered and is tLacked onto the end of the list. To exit the 
edit mode and return tLo drauing mode, type ”en” and €ENTER2?2. 
The edit mode commanás are: 


€ EDIT HODE COMHANDS 2 


ENTER s- move ”2” pointer doun one command, 
c s- change command at, pointer. 
a s- add a command to the end of the list. 
á s- display next screen “page” of commandás, 
s- move pointer to Lop of command list, 
en s- return to drauing mode. 


EX these to examples of turtle ploutting : 
xamp. i k& Examp. 2 


————————— kg, ——————— —— NS — —— — a i NEE — a us a a 


fd42 x in4 
in3 x rtL144 
rt123 x fda4 
cl x in4 
doso & 


rt144 
Demo. f3 — SIERPINSKI CURVUVE Cprog. lines 1500-1785? 


This raaisn uas dounloaded from the TIMEX SIG of the King”s 
Harket BES in Denver and is a excellent example of a screen 
display graphic program that. has been reuritvtLen to uork uith the 
159520 plotter and utilise al11 four pen colors., ItL is one of the 
most Sobealine demonstLratLions of graphic cios uith the 1520 
I”ve yet encountered, Try it... you”?11 like it!! 


Demos, $4-££15 - COHHODORE 1520 USER'S HANUaL EXAaMPLES 


The last group of 12 demo bis are taken from the 1520 User”?”s 
Hanual and uere reurittLen to uork uith the 2068. If you compare 
an original Commodore example uith one reuritten for the 2068, 
bos may be suprised to see that BLE amha the 1520 for the 
068 is actually easier than programming the 1520 for the 
Commodoreft! ff The follouing is a listing of the tuelve reuoritten 
Commodore examples, uhere each can be found in the 1520 User”s 
Hanual, and the line numbers each occupies in DEHO-PaAK 1 : 


EX&eAMNPLE 1520 HANUaL PG, NOS. ODEHO-PaAK LINE NOS. 
423 CONCENTRIC CIRCLES ag 2000 — 2220 
52 CONCENTEIC SGUAaKkES ar 2500 — 2TYT30 
62 ROT&ATING TEIANGLE as 3000 — 3220 
72 CONE HADE FROI CIRCLES a9 3500 — 3690 
82 CIRCLE H&ADE FRON CIRCLES s0 4000 — 4200 
953 KEOTATING ELLIPSE s1 4590 — 4710 
102 &ARCHIMEDIAN SPIRAaáL 52 s000 — S$1TrT0 
112 GEOHETRIC DESIGN s3 5500 — S$720 
122 CHECKEK BOARD s4-5s5 6000 — 6280 
132 HaTCHING s6 6500 — 6820 
142 CHANGING FORNUS s-s8 ro000 — rY340 
152 ROTATING FIGUKEES s9 “sg — T'Tr30 


